Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/crwdemo/datcond.frm

Visual Basic Form | 1995-12-05 | 5.8 KB | 182 lines

VERSION 2.00
Begin Form Datecond
   BackColor       =   &H00C0C0C0&
   Caption         =   "Date Condition"
   ClientHeight    =   5820
   ClientLeft      =   5415
   ClientTop       =   1410
   ClientWidth     =   3645
   Height          =   6225
   Left            =   5355
   LinkTopic       =   "Form3"
   ScaleHeight     =   5820
   ScaleWidth      =   3645
   Top             =   1065
   Width           =   3765
   Begin SSPanel Panel3D2
      Alignment       =   1  'Left Justify - MIDDLE
      BevelWidth      =   2
      BorderWidth     =   1
      Height          =   510
      Left            =   0
      TabIndex        =   12
      Top             =   5310
      Width           =   3615
   End
   Begin CommandButton Command1
      Caption         =   "Ok"
      Height          =   420
      Left            =   1170
      TabIndex        =   10
      Top             =   4815
      Width           =   1275
   End
   Begin SSPanel Panel3D1
      Alignment       =   1  'Left Justify - MIDDLE
      BevelInner      =   1  'Inset
      BevelWidth      =   2
      BorderWidth     =   1
      Height          =   4335
      Left            =   180
      TabIndex        =   0
      Top             =   405
      Width           =   3255
      Begin SSFrame Frame3D2
         ForeColor       =   &H00000000&
         Height          =   3255
         Left            =   180
         TabIndex        =   2
         Top             =   900
         Width           =   2895
         Begin SSOption Option3D1
            Caption         =   "Change Monthly"
            Height          =   285
            Index           =   4
            Left            =   180
            TabIndex        =   13
            TabStop         =   0   'False
            Top             =   1755
            Width           =   1815
         End
         Begin SSOption Option3D1
            Caption         =   "Change Annually"
            Height          =   285
            Index           =   7
            Left            =   180
            TabIndex        =   9
            TabStop         =   0   'False
            Top             =   2880
            Width           =   2265
         End
         Begin SSOption Option3D1
            Caption         =   "Change Semi-Annually"
            Height          =   240
            Index           =   6
            Left            =   180
            TabIndex        =   8
            TabStop         =   0   'False
            Top             =   2520
            Width           =   2445
         End
         Begin SSOption Option3D1
            Caption         =   "Change Quarterly"
            Height          =   330
            Index           =   5
            Left            =   180
            TabIndex        =   7
            TabStop         =   0   'False
            Top             =   2115
            Width           =   2265
         End
         Begin SSOption Option3D1
            Caption         =   "Change Semi-Monthly"
            Height          =   330
            Index           =   3
            Left            =   180
            TabIndex        =   6
            TabStop         =   0   'False
            Top             =   1350
            Width           =   2265
         End
         Begin SSOption Option3D1
            Caption         =   "Change Bi-Weekly"
            Height          =   375
            Index           =   2
            Left            =   180
            TabIndex        =   5
            TabStop         =   0   'False
            Top             =   945
            Width           =   2175
         End
         Begin SSOption Option3D1
            Caption         =   "Change on each week"
            Height          =   375
            Index           =   1
            Left            =   180
            TabIndex        =   4
            TabStop         =   0   'False
            Top             =   540
            Width           =   2265
         End
         Begin SSOption Option3D1
            Caption         =   "Change on each Day"
            Height          =   375
            Index           =   0
            Left            =   180
            TabIndex        =   3
            Top             =   180
            Value           =   -1  'True
            Width           =   2175
         End
      End
      Begin SSFrame Frame3D1
         ForeColor       =   &H00000000&
         Height          =   600
         Left            =   180
         TabIndex        =   1
         Top             =   225
         Width           =   2895
         Begin Label Label1
            BackColor       =   &H00C0C0C0&
            Caption         =   "Select Group Date Condition"
            Height          =   240
            Left            =   90
            TabIndex        =   11
            Top             =   225
            Width           =   2715
         End
      End
   End
Sub Command1_Click ()
 'Sets group condition based on date conditions set in radio buttons
 If PESetGroupCondition(JobNum, 3000, GroupCond.Text1.Text, DateCond1, Sortdir) = False Then
      RCode = GetErrorString(JobNum)
      MsgBox "PESetGroupCondition Error #: " + Str(ErrorCode) + " - " + RCode
 Else
     GroupCond!Statusbar.Caption = "Group Condition has been set."
     GroupCond.Command1.Visible = False
 End If
 Unload Me
End Sub
Sub Option3D1_Click (Index As Integer, Value As Integer)
   'Specify Date condition
   Select Case Index
    Case 0:
      DateCond1 = 0
    Case 1:
      DateCond1 = 1
    Case 2:
      DateCond1 = 2
    Case 3:
      DateCond1 = 3
    Case 4:
      DateCond1 = 4
    Case 5:
      DateCond1 = 5
    Case 6:
      DateCond1 = 6
    Case 7:
      DateCond1 = 7
   End Select
End Sub